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Lal 
f contents 
19 DECLARATIONS 
1 SYSSETPFM = Initialize Page Fault Monitoring 
4 PFMSPURGE = Return all process buffers to pool 
5 PFMSGETBUF = Return PFM Buffer to Caller 
$ 7 ALLPMB = Allocate PMB control block and data buffers 
PFMSMON = Resident Monitoring Code 


————— 
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SYSSETPFM = SET PAGE FAULT MONITORING 16-SEP-1984 02:31:31 VAX/VMS Macro v06-00 
9022500 moe rie A te 
TITLE §YSSETPEM = SET PAGE FAULT MONITORING 
"IDENT *vOa-000" 


; 
RRA RAAR ASHE ATA KAA R EAA AAKAAAARKEREAHeAReAKeeeeeReeeeeeeeeteReeeeeeeeeee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. ab SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eonpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3* * 
3° * 
3* & 
3* * 
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7* * 
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j++ 
; FACILITY: Measurement System Service 


SoOoOOCCCOoOoOoOoOoOoCoOoOoOOCoOOoOO 


0 

00 

00 
4 ABSTRACT: 
00 This module enables a page fault monitoring service within the 

00 operating system. On each page fault, the virtual address, the PC, 
00 and the process CPU time are saved in a buffer to be output by either 
bo a@ cooperating subprocess or an image-based AST routine. 
00 ENVIRONMENT: Kernel Mode 

g AUTHOR: Henry M. Levy , CREATION DATE: 7-May-1977 

MODIFIED BY: 

v03-007 SSA0026 Stan Amwa 9=Jul-1984 
In PFMSMON, raise IPL to YPLs HWCLK when 


doing CPU time reference update. 


v03-006 $SA0025 Stan Amwa 25-Jun-1984 
Add global symbol PFMSC_BUFCNT for use by PCA. 


v03-005 $SA0019 Stan Amway 12-Mar-1984 
Prevent subprocess ty PFMFILWRT from deallocating PMB. 
Add access mode checking for subfunction and stop requests. 


v03-004 SSA0013 Stan Amway 28-F eb-1984 
Properly handle monitoring termination by 
dequeueing AST block from PCB. 
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v03-002 


v03-001 


02 


03 
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05 


AX/VMS Macro V04-00 


"$r$Ep=1986 08:37:09 


nsure that PFMSPURGE w uty be, invoked if service 
s called with 3 Ait oon ponteers ng f request (notably 
tree YSRUNDWN Lt ait ocated. 
ponte t ~~ y r tty uh it's butter contains no records. 
ix bug that inhibited Oy ensey. of a CPU timestamp 
into the first page fault bu 
Pore Pr MSGETBUF and ALLPMB routines to paged 


gSA0007 sta an Amway By hte 
Removed restriction of 1 process per group 

Added AST interlock f ap Se to keep the number of 
ASTs delivered to am 

Track changes in buffer format. 


$SA0004 Amway ay 
Extensive changes. to add support for 

Performance overage Analyzer (PCA) "tetes done by 
the VAS Debug group. 


Changes include: 

Removed use of PMB List. Use PCBSL_PMB (new) instead. 
Timestamping fault with process CPO time 

Adding support for image-based butter handling. 
Cleanup of error handl ng. 

Optimizing main code paths for speed. 


CWH1002 CW Hobbs 11-Mar-1983 
Convert to use extended pids. 


R1HOO33 1. HUSTVEDT 16-OCT-1979 
CHANGE PCBSW _BYTENT TO JIBSL -BYTCNT. 


BLS0001 8. SCHREIBER 28-NOV-1979 
CORRECT PAGE FAULT ERROR 


BLS0002 B.L. SCHREIBER 28-JAN-1980 
CORRECT ERROR IN PURGE ROUTINE. 


BLS0003 B.L. SCHREIBER 30-JAN-1980 
MORE ERRORS IN PURGE ROUTINE 


SYS. SRCISYSSE PFM.MAR;1 


] 
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INCLUDE FILES: 

1 | 
1 
1 
1 
1 
1 
1 
1 
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~ SET PAGE FAULT MONI TORING 


SYSSETPF 
v04 DECLARATIONS 


+ MACROS: 


ne 3; define AST control block 
DYNDEF 3; define Fynea'c 8 os fae 
B100EF 3; define 170 function ¢ 

IPLDEF ; define interrupt prior ty te levels 
$JIBDEF i; define job information bloc 
SPCBDEF 3; define +h. control block 
SPHDDEF : define process header 
SPFBDEF ; define PFM buffer Layout 
SPMBDEF 3; define PFA control block 
SPQLDEF i; define process quota codes 
SPROEF i; define processor registers 
SPRIDEF 3; define priority increment classes 
SPSLDEF 3; define PSL fields 
SSGNDEF 3; define system parameters 
SSSDEF 3 define service status codes 


-MACRO SQUOTA = NAME=LISTEND, VALUE=0 
-BYTE Aer "NAME 


LU 
-ENDM $QU0TA 


Argument List offsets 


= 4 ; Function/subfunction flags 
ASTADR = 8 3; AST Routine Address 
ASTPRM = 12 ; AST Parameter 
ACMODE = 16 ; AST Mode 
BUFCNT = § ; number of buffers to allocate 
PFMSC pur cut == pet ; global definition of BUFCNT 
BUFSIZ = PFBSC_L ; size of buffers 
MAXREC = <cBUF S12-Pr 888 =BUFFER>/<2s4>> max records per buffer 
QUOTA_CHARGE = <<BUFCNT#BUFSIZ> + PMBSC LENGTHS ; Amt to charge process byte quota 
FAULTOA = <4#7>44+<724> ; offset to va of faulting instruction 
FAULTPC = <4*7>+8+<7#4> ; offset to pc of faulting instruction 
> OWN STORAGE 


-PSECT YEXEPAGED,LONG 


buffers to d 


Oe iil i ie ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


Data for creation of of subprocess to output filled | 


- SET PA 
DECLARAT 


5" 


gaggkegeawen 


49 50 45 20 3C SF 42 55 53 4D $6 50 
SE 20 44 


FFFFFFFF FRFFFFFF 


1 gal MONI TORING 


15 

160 PFMFILWRT: 

: TONG 
165 108: ~ASCI 
164 20%: 

188 PFMQUOTA: 

196 SQUOTA 
16 SQUOTA 
16 SQUOTA 
1 QUOTA 
1 QUOTA 
17 SQUOTA 
176 SQUOTA 
173 FILWRT: 

174 ASCII 
175 FILWRTPRV: 

176 s 


ti 


-108 


/SYSSSYSTEM:PFMFILWRT.EXE/ 


/PFMSUB_< EPID >/ 


-1,°1 


be 08:37:09 ESE YSACHSVSSeVPrMcman: 1 


subprocess image name descriptor 


subprocess quota name 
infinite CPU time 

byte Limit for buffered 1/0 
open file count Limit 

paging file quota 

no subprocesses 

timer queue entry 

end of List 

subprocess process name 


subprocess privilege vector 
all privileges 


ee (3) 
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voe=600 SYSSETPER = Initia ize Page Fault Monito 'S-SePci9be OS:8P:09 Levevenctevssetprmenar;1 "#8 ¢§ 


-SBTTL SYSSETPFM = Initialize Page Fault Monitoring 
FUNCTIONAL DESCRIPTION: 
Page fault monitoring initialization. Buffers are allocated from 
the nonpaged pool and queued for use by the monitor. jn subprocess 
mode, a puserecess is created which ou 
filled. In 
When the process calls SETPFM to turn off monitoring, all 
buffers are returned to the system and if in subprocess mode, the 
subprocess is deleted. 
In case of abnormal termination, the buffers are returned by SYSRUNDWN. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUT PARAMETERS: 
4(AP) PFMFLG Function/subfunction 
bit = off/on (0/1) 
bits 1-30 = subfunction field 
Bt 1 = Flush buffers 
bit 31 = 0 indicates initialization call 
indicates subfunction call (if bit 0 = 1) 
B(AP) ASTADR AST Routine Address 
= 8 Subprocess Mode 
<> 0 AST Routine address for image-based buffer handler 
12(hr> ASTPRM AST parameter 


16(AP) AC(MODE Access Mode for AST delivery 


MEW —OOONOUS Ut O 0M 


IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
COMPLETION CODES: 
SSS_NORMAL = Success 
SSS_EXQUOTA - A quota was exceeded valle allocating buffers 
or cresting the cooperating subprocess. 
SSS_INSFMEM - Insufficient ynaate memory was pvetiable for buffering 
PFMBSY nitiali 


SS$_ Attempted t ze page fault monitoring while 
already active. 


SSS icv ard a0 SNF MO Deo we he ee ee See Pea 
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MON] TORING 16-SEP-1984 02:31: AX/VMS Macro v04-00 Pa 
ialize Page Fault Monito ae ioets Pi 86:85:59 ESS SRCI YSSETPFM.MAR; 1 as & 
SSS_NOPRIV = Caller's access mode is Loss privileged than the mode 
that started page fault monitoring. 


si itil 


aed 
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SSSSBEEe 3 
NNO Oo mC 
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SIDE EFFECTS: 
none 


-PSECT YEXEPAGED 


Subfunction Processing 


UBF UNC: 


: 
4 
4 
4 
45 
23 
$3 » ENABLE LSB 
49 PFMBUSY: 
50 0204 of 9 Roveu. $558 _PFRBSY .RO 
§ ILLSEQOP: 
50 O2DC BF 3C Z 108 MOVZWL #SS$_ILLSEQOP,RO 
35 "DISABLE LSB 
§ SETIPL #0 ; Restore IPL 
04 5 RET 3; Return w/error in RO 
54 QOO00000'EF oD 61 MOVL L“SCHSGL_CURPCB,R4 3; get our PCB address 
55 90000000" SF D 8 MOVL @#CTLSGL-PHD,R : job PHD address (P1 window) 
6 SETIPL 4 ta) ASTDEL ; Protect access to PMB 
56 O11 C4 OD 64 MOVL PCBSL_PMB(R4) ,R6 ; Get address of allocated PMB (if any) 
53 O4 AC OD 9 MOVL PFMFLG(AP) ,R3 : Get copy of PFMFLG 
$ : From this point on, IPL is at IPLS_ASTDEL and registers are as follows: 
$3 : R3 Copy of PFMFLG 
0; RG PCB Address 
71 3 RS PHD Address (P1 window) 
: R6 PMB Address or 0 (initialize request only) 
74 ; *** Order of following tests makes 
75 3 implicit checks on PFA state *** 
0 E1 A BBC #PHOSV_PFMFLG,- BR if monitoring not initialized 
58 36 A 7 PHD$W_FLAGS(R5) ,START 
5 3 4 BLBC R3,STOP_VEC : BR if sqraingt ion request 
01 6 BGEQ ILLSEQOP ; BR if R35 >= 0 (not a subfunction call) 
: 


PROPSPOROPORORORORONoPORNoNORONOPOnoPononor 
oOo 

-—-o 

WP teee8 

> «om 

yr wow 

_- 
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1A 19 BSBB CHECK _ACMODE :; If caller does not have privilege, 
29 30 E BLBC RO,NOPRIV 3 return with error status 
5 1 + C oR5,10$ : If flush buffer request, 
0 5'EF 6 FLUSH_BUFFER ; do it no 


(R2, R&. RS DESTROYED) 
PMBSV_MODE EO 0 


Ls fe 
voe=600 SvSSETPFA = Initiatize Page Fault Monito S-sEP-19Be 08:57:09 LevSesaclsvsserprmcnan:1 "8° ¢f) Sym 


ASSUME PMBSK_IMAGE EQ 1 $$1 
02 08 Ag 8 38 10$: BLBC pnesB AGS (RG) 208 ; If image-based mode, ACB 
7 3 208 e508 SET_ASTMODE ; update AST parameters reef 
: ; Lower 
50 «(Ol ¢ 36 MOVZWL 9 #SSS$_NORMAL ,RO : and return with success att 
3 oct AST 
38 ; Determine if caller is BUF 
y 3 permitted to execute function BUF 
CHECK _ACMODE : CHE 
0 04 ; CLRL R ; Assume function not allowed to caller CHE 
1 oc MOVPSL R > R1 <= PSL CTL 
92 $ EF 4 EXTZV  #PSLSV_PRVMOD.#PSL$S_PRVMOD,- ; R1 <= caller's mode ord 
2E— A6 31 91 $ CMPB R1 , PMBSB_ACMODE (R6) 3; If caller less privileged than owner DYN 
98 1A BGTRU 108 > return with no access indication in RO DYN 
6 : INCL R 3; else return access OK EXE 
10$: RSB EXE 
\9 EXE 
11 NOPRIV: EXE 
50 24 3X \¢ MOVZWL #5S8_NOPRIV.AO ; Return w/no privilege error EXE 
1 SETIPL @# EXE 
04 14 RET EXE 
15 FAU 
C 1§ STOP_VEC: FAU 
0142 31 1 BRW STOP FIL 
C 18 PURGE _EXIT RO_VEC: FIL 
0161 +31 ¢ 1 Q PURGE_EXIT_RO FLU 
cB O PURGE _EXIT VEC: FLU 
0158 «31 cB 1 BRO PURGE _EXIT Get 
ce ; CHECK_STOP: 108 
90 53 +€ cf 4 BLBS R3,1LLSEQOP ; Error if not termination request IPL 
56 OD D 5 TSTL R6 : If PMB doesn't exist, IPL 
+3 1 D § BEQL ILLSEQOP 3; don't proceed IPL 
£0 D BBS #PMBSV_MODE .- : If image mode, continue normally J18 
EB 0B A6 D 8 PMBS$B_FLAGS(R6) , STOP_VEC 
4 A6 01 DA CMPL PMBSL_EPID(R6),- ; Don't allow PFM rundown NOP 
AG DD 0 CBSL_EPID(R4) ; if the current process is the 
80 13 DF 1 BEQL ILLSEGOP ; subprocess runn ng PFMFILWRT 
E2 11 3 § BRB STOP_VEC ; Otherwise, join STOP monitoring code 
: : 3 Initialize page fault monitoring 
E oe 
E $ START: 
01 53 «O1 E 3 CMPL R3,#1 3; Valid request ? 
£6 1 EG BNEG § CHECK_STOP : BR if not 
g ? E rt TSTL aq ; PMB allocated ? 
0 EA 4 BEQL 10$ 
ire HY EC 4g BR PFMBUSY ; Yes - can't proceed 
024 0 EF 45 108: BSBW ALLPMB 3 as Secate PMB 
F 44 SETIPL 3 + s now safe to lower IPL 
DO 9 E9 F 45 BC RO,PURGE _EXIT_RO_VEC ; PMB allocation error, quit now 
oc F $$ MOVPSL R ; Store caller's access mode 
92 EF OOFA 34 EXTZV #PSLSV_PRVMOD. #PSLSS_PRVAOD. - 
zc & FD 48 R1,R 3 aS owner's access mode 
| 


ns AeOSSELAD wale 7 iTeNaare | | 


SYSSETF = SET PAGE FAULT MONITORING 16-SEP-1984 02:31:31 VAX/VMS Macro V04-00 Pp SYS 
$0260. SYSSETPFA - initialize Page Fault Monito ete 86:3) :34 YOYS SRCISYSSETPFM MAR: 1 on (d Sym 
2 A6 =6O51—s@D : 349 MOVB R1,PMBS$B_ACMODE (R6) i for subsequent privilege checki Ss$ 
08 a g 5 9 TSTL ASTADR (AP) ; Are ve inttiali¢ing ot fh dy ? $S$ 
é ¢ BEQL § SET_SUBPMODE ; if no, setup subprocess mode $$$ 
. 2 : BSBB = SET“ASTMODE ; Else setup image-based AST mode STA 
A ASSUME PMBSV_MODE EQ 0 STAI 
A 4 ASSUME PMBSK"IMAGE EQ 1 $TOl 
0B A6 «(9% A : sai ox tne PMBS$B_FLAGS(R6) ; Set image-based AST mode flag STO 

00 €2 D ~"BBSS #PHDSV_PFMFLG.- : Enable fault monitori 

09 36 3 Fie PHDSW. FLAGS (RS), 108 delormes eset, 
0 01 c : f 108: movzuL #SS$_RORMAL ,RO 


Setup image-based mode AST parameters 


> Form unique subprocess name using EPID of this process 
§ : (NOTE: The following code adds a NET 4 bytes to the stack local storage) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
"i 
116 
11 ? : 
11 4; 
11 65 
11 98 SET_ASTMODE : 
11 6 ASSUME PMBSL_ASTPRM EQ PMBSL_AST+4 
116 os ASSUME ASTPRA EQ ASTADR+4 
34 A6 = O08 AC 7D 0116 § MOVQ ASTADR(AP) ,PMBSL_AST(R6); Save AST address and parameter 
50 10 ac 02 OO EF O118 0 EXTZV #0,#2,ACMODE (AP) [RO : RO <= request AST delivery mode 
FEDC’ 30 0121 71 BSBW EXESMAXA ; Maximize requested and allowable 
9 0124 i BISBS #<ACBSM 31) teehee door 3; access modes & store with 
2F Ag 0 1 § 7 RO,PMBSB_RMOD(R6) ; nodelete, pkast set;quota, kast. clear 
3C AG = 02D1' CF 9 ; rh MOVAB W*PFM_PKAST,PMBSL_KAST(R6) ; Set piggy-back kernel AST address 
1393 
' g 3 Setup subprocess mode 
1 0° 
: } SET_SUBPMODE : ; (RO-R3 DESTROYED) 
01 OD : PUSHL #SS$_NORMAL ; Save room for status on stack 
} 5 ; Create a termination mailbox for the subprocess. 
1 oO 
1 8 SCREMBX_S CHAN=PMBS$W_MBXCHN(R6) ,MAXMSG=4120,- 
ie BUF QU0=#120 ,PROMSK=40 
6E : D Jae ot MOVL RO, (SP) 
03 § 1 3 BLBS R 
0d 154 BRW PURGE EXIT : exit on error 
ss } C2 0157 94 5$ SUBL2 #16,SP ; buffer space for GETCHN on stack 
5 DD Q15A 95 PUSHL SP : build descriptor for buffer 
1 DD Q15C 9 PUSHL #16 ; length of buffer 
52 6€ ODE 01 ; 9 MOVAL (SP),R2 : ey descriptor address 
161 9 SGETCHN_S CHAN=PMB$W_MBXCHN(R6),PRIBUF=(R2) ; get mailbox unit # 
174 
174 
174 
174 
174 
174 


, aa eld el te 


4 
3c Ss BB 5 PUSHR #*M<R2,R3,R4,R5> 


; and return with success status 


Palobe 8:87:09 Pers eacheeSsEyormemar:1 Page A 
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SYSSETPFM = SET PAGE FAULT MONITORING 1 
vou 500 SYSSETPFM = initietize Page Fault Monito $23 


SE 
SE 
MOVCS 5,W*FI welR 


04 A2 FEC8 CF or 28 0176 4 § ; Move name template to stack storage 
¢ BA Q017D 4 POPR ALD ay R5,R4 
Ver 4 8 3 Convert hex EPID to ASCII 
51 $4 AL DO OIZE MOVL i EPIDCRA) RI : 4 <= EPID to be converted 
7 LY 3 1 4 9 MOVAB 3 <s address of PAu cberae tor 
; 1 D 1 41 MOV : 8 <= posit on stn 
- 34 5 F OBA tig 10$ EXTZV 3 Get next four b 4 of value 
er? a 0000 9F4 0 O18F 41 MOV arene B°NEXTABCROJ, ,(R7)+ ;Convert to ASCII and store 
© 0 D 0197 414 ACBB #0 3 Loop until all digits converted 
6 O04 A E—E Q1 415 MOVAB ac82) “th j i Form string descriptor 
OF oD 28 213 PUSHL i: for resultant name 
1% $13 3 ; Create subprocess with high priority, full privilege and termination mailbox 
16 420° 
1AQ6 421 SCREPRC_S Fahaheeretit EPID(R6),- ; pid of created process 
1A6 4 § IMAGE =PFMF I PRT .= 
1A4 4 PRCNAM=-4 (R2) 
1A4 4 4 PRVADR=F [LURTPRV, 
1A6 : aaaretnie - 
1AQ6 4 MBXUNT=8+12(R2),- ; unit from or channel information 
1A6 G 8 STS ; disable swapping 
_—: C 1CF 64 ADDL2 #<24+4>, Sper ; Return stack Local storage 
yh OG Se Ge BERD 
008 i 1D 4 § BRw DASSGN EXIT 3 exit on error 
7E D 10B 4 15$: MOVa R4 (SP) 3; Save R4, RS 
1D 43g SETIPL os 3; Synchronize access to system database 
50 36 A6 99 1E 435 OVL Basse EPID(R6) ,RO ; Convert EPID to IPID 
0 9000 "ff é 166 4 : JSB EXESEPID_ 10 IPip 
A 0 oD 1€ 4 MOVL RO, PMBSL-PIB(R6) ; and save in PMB 
QOOOOOO0'EF 1 1F 4 8 JSB EXESIPID-T0 th ; Convert IPID to PCB address 
O11C C 6 OD 4 $ ai ° -PCBSL_PMB(RO) ; Insert PMB address in subprocess PCB 
54 E 7 NA rt MOVQ (SP)+,R4 ; Restore R4, RS 
. 726 TSTL (SP)+ 3; Discard stacked status 
FF 1 ? a7 BRW START_OK ; and take successful exit path 
00000008 ° ree 20$: -LONG IPLS_SYNCH 
A tae ; 
“ is 3 STOP = Termination Processing 
A 450° 
A 451 sToP | 
FE9F 863 A 4 § BSBW ROS ACMODE : If caller does not have privilege, 
03 50 4 BLBS 
FE 4 : BRw pRIV return with error status 
00 36 AS 0 ‘ 1 4 ; 3 BBCC OPND V ree, s. PHDSW_ FLAG&«RS Pa 108 Turn off a pvaiive ve monitoring 
00000065 ‘EF 6 13 ; § $: JSB FLUSH_BUF F raysn SLL. bulters 
1 4 8 SET APL #0 3 = PH. to | | 
01 oD 4 #SS$_NORMAL 3; Assume anaes 
4 9 ASSURE PmBs?_ EQ 
4 ASSUME PMBSK"IMAGE EQ 1 
02 0B A6- «CEB 462 BLBS PMBSB_FLAGS(R6) ,PURGE_EXIT ; If subprocess mode, 
| 


B 6 
SYSSETPFM = SET PAGE FAULT MONITORING -1984 AX/VMS Macro Vv04-00 Page 1 
yo2500 SYSSETPFM = Initialize Page Fault Mere, mie 1984 88 3}: 39 SYS.SRCISYSSETPFM.MAR; 1 . ( 
06 = «(11 7 663 BRB STOP_PROCESS ; do orderl shytdous of subprocess 
9 464 PURGE_EXIT: : (Assumes IPL=0, (SP) = status) 
50 8EDO 9 & RO 
C $98 PURGE _EXIT_R 
3¢.)—C «10 C e380 PFMSPURGE ; Return process buffers to system 
04 E rhe ; Return w/status in RO 
F ry 4 
F 4670; 
: $f) 3 Orderly shutdown of subprocess 
F an 
F 474 STOP_PROCESS: 
F 475 SFORCEX_S PIDADR=PMBSL_EPID(R6) ; sores subprocess to exit 
1D 50 €9 023d £76 BLBC “RO,DASSGN_EXIT™ don't wait for message if force failed 
0240 47 $Q10W_S CHA incPRos@ MBXCHN(Ro), FUNC=#108 _READ VBLK 
0240 478 pi spqes. EPID(R6),- : buffer four hos of termination 
0240 479 P2=# i «.smessage in unneeded PID slot 
025D 480 DASSGN_EXIT 
0250 481 SDASSGN. S$ cnamenreel MBXCHN(R6) ; release mailbox 
BF 11 8 re re BRB “PURGE _EXIT 


———_ 
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Kernel mode, IPL <= IPLS$_ASTDEL 


PFMSPURGE : : 
PUSH 
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PFMSPURGE = Return all process buffers t SEP=19 SYS.SRCISYSSETPFM.MAR; 1 
oA : 5 -SBTTL PFMSPURGE - Return all process buffers to pool 
6A & : 3++ 
6A 488; 
on ? ; FUNCTIONAL DESCRIPTION: 
ry 23! 3 ALL data buffers and the control block are returned to pool. 
6A 198 ; CALLING SEQUENCE: 
8 6A 494; 

6A 495; BSB/JSB PFMSPURGE 
8 6A £3$ 3 

6A 497 ; INPUTS: 
026A 498 ; 
8 6A 499; none 

6A 00 ; 
026A 8 3; IMPLICIT INPUTS: 
026A : 
026A 03 ; PCB Address 
026A 04 ; 
026A 05 ; OUTPUTS: 
026A 506 ; 
agen 28 $ none 
026A 08 ; 
026A 509 ; IMPLICIT OUTPUTS: 
026A 510; 
026A 511; none 
026A 512; 
026A 5135 ; SIDE EFFECTS: 
O26A 9514; ; 
026A 515; none - all registers preserved 
asen 516 ; 
O26A 517 ; ROUTINE VALUE: 
026A 18; 
026A 19; none 
026A 3 
026A 5 3; ENVIRONMENT: 
026A 522; 
026A 3 
026 3 
026 
026 5 
wee 

4 


DOD NOAULS AD 0 OBNOAU EWN OOONOAU EWN" O OONOU EWN OOM 


OO7F 8F 6B 6 R #*M<RO,R1,R2,R3,R4,R5,R6> ; save registers 
54 00000000°EF D0 0¢e MOVL —_L*SCHSGL_CURPCB.R4 ; get our PCB address 
DSBINT #IPLS_ASTDEL 3 protect manipulation of PMB 
56 O11C C4 DO 78 MOVL PCBSL_PMB(R4) ,R6 ; get PMB address (if any) 
O11C C4 iG 0 CLRL PCBSL_PMB(R4) ; Clear PMB pointer 
g D 4 TSTL R6 3; was there a PMB 
1 § BEQL 40$ ; exit if not 
02 OB A6 § f BBCC #PMBSV QAST,PMBSB_FLAGS(R6) ,5$ :; Is ACB enqueved on PCB ? 
4 D BSBB DEQUEUE ; Yes, remove it. 
66 D F 5$: TSTL PMBSL_CORBUF (R6) ; check if current buffer there 
1 1 BEQL 3; branch if none there 
50 04 A6 Ht 33 MOVL PMBSL_BUF BASE (R6) ,RO ; else set buffer address 
eh 9 BSBB ; return to system 
50 1486 OF 99 108: REMQUE @PMBSQ_HDR(R6) ,RO ; remove buffer from queue 


D 6 
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OO7F 8F 


o 18 9D ¢ BVS é $ ; exit if none there 
Se oF BSBB $ 3; return buffer 
F6 = 11 Al RB 10$ ; go back for more buffers 
50 1C¢ B° of A 208: REMQUE @PMBSC_SBPHDR(R6) ,RO ; check that subprocess queue is clear 
4 4 A BVS $ ; exit if no ontey 
| ee AS BSBB $ ; else return buffer to system pool 
F611 BRB $ 3; check for any more 
50 32 st 30$: MOVL R6,RO 3 get back PMB block address 
1 1 BSBB 5 ; deallocate control block 
50 g080 y 4 MOVL PCBSL_JIB(R4) ,RO ; Get JIB address 
20 AO QOOOOA7C BF C ADDL2. #QUOTA_CHARGE,JIBSL_BYTCNT(RO) ; Return quota to process 
- 40$: ENBINT ; restore IPL 
05 


POPR #*M<RO,R1,R2,R3,R4,R5,R6> ; restore registers 
RSB ; return to caller 


: Return buffer to pool. 


50$: CLRW PMBSW_SIZE+2(RO) ; Clear type field for EXESDEANONPAGED 


OA AO B4 
00000000 ' EF 4g J38 EXESDEANONPAGED ; deallocate memory 


The sole purpose of this routine is to mark the ACB as not queued. 

It is called as a piggy-back kernel AST routine to effectively interlock the 
operation with the monitoring termination code, which will conditionally 
remove the ACB from the PCB. 


Inputs: R5 = ACB address, IPL = IPL$_ASTDEL 
Outputs: PMBSV_QAST cleared, all registers preserved 


OO OOO O0009 090909 09 09 09 09 09 SIN NI NS SSNS NN NPP AAA AAA A ITT BB 
MEAN SO OD NAM EWN © OD NAME WN 9 OOD NAME WN 0 OONOA NEW OWOONAUE 
Bete Ge Se Ge Ge Oe Se Se 


rites $4 b+ b> O44 Os HAALAALACALLANS Lenn ee a ae CU 
VD NEL BAA AAAA AAA AAA Nt tt 1 OP NNN NIN TM SINVOT 


SOOOOCOOCOCOCOCOCO COCO OCOCOOCOCOOOCOOOOOOCOOOCOOOOCOOOCOOOCOCOO 


ad Ah Ab Ab Ab Ab hb db ib db db db hb bbb bb hh Ab db db ah ah tb ah ah sh sh sh sh sh shal 


PFM_PKAST: 

E7 AS 04 BA - B1CB2 #PMBSM_QAST,PMBSB_FLAGS-PMBSL_ASTQFL(RS) ; Show ACB dequeuod 
: This routine is called from PFMSPURGE to dequeue the ACB 
; if PMBSV_QAST in PMBSB_FLAGS was set. 
> Inputs: R6 = PMB address, IPL=IPL$_ASTDEL, 
: PMBS$V_QAST checked and cleared by caller 
; Outputs: ACB dequeuved, R5 destroyed 
DEQUEUE_ACB: 

55 24 A6 9E atin A POTS, ASTOFL (RG) RS ; RS <= address of embedded ACB 

OOOOO0000'EF 16 J SCHSREMOVACB ; Remove ACB from PCB 

05 pen ire #IPLS_ASTDEL 
00000008 10$: -LONG IPL$_SYNCH 
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-SBTTL PFMSGETBUF - Return PFM Buffer to Caller 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
Returns a filled PFM owe to the caller 
For efficiency, this routine and os “BUFFER assume 
that once the collection Eseeees is awakened, it will 
continue getting PFMSGETBUF until SSS$_NODATA is returned, or 
an error is encountered. 

CALLING SEQUENCE: 
BSB/JSB PFMSGETBUF 


INPUTS: 


DOOCWOCOCOCOCOCOCOWO 


oe GG MOT PAE TE ALR AEE I ETA NAO IB ce hast Be epi as cp eR in AS 


Ri = Buffer address 
R2 = Buffer size 
(Should oy = PFBSS_USER_BUFFER, with which it is minimized) 
NB: No checks are made for buffer accessability. 
IMPLICIT INPUTS: 


hs ny CURPCB - PCB address of current process 
CBSL_PMB in PCB = pointer to PMB 


OUTPUTS: 
If RO=SSS$_NORMAL or SS$_BUFFEROVF, buffer is filled with page fault data 
IMPLICIT OUTPUTS: 


DDD APA DAA DA DA AAA AAA AAA AAA AA AAA A AAA AAAAAAAOOOOOUIUN 


BE WANAWA AAALAC POPOPOPOPONONOPOD 4 


MMM MMMM MMMM MMMM MMMM Mem mem irri eh eh TET ET TI ETE ETI CTI ETU TECH ETUCTICTICTICTICTICTICTICTICTICTICTICTICrICTICTICvICT? 
DPOOOOVOPVOBOBVOO9VOOOIOIVODODAOSDOAOAOOAAYAYAOYIAAAYIAIAOAIAIOAOOOOAIAIOAIAIAIOIAAAIAMAIAIAIOOOOOAO 
Be Se Se Oe Oe Se Be Se Se Oe Oe Se Se Se Be Be Oe Be Se Se Be Ge Oe Se Se Se Se Be Se Be Se Be Se Se Se Se Se Ss Se Se Ss Se Se Se Se Se Se Se Se Se Sets 


COOOCOOCOCOOCOCOCOCOCCOCOOCOCCOOOOOOOOOCOCOCOCOCOOOCOOOCOCOOOoOOOo 


2 
; none 
ROUTINE VALUS: 
RO = Status 
SS$_NORMAL 
SS$“NODATA 
S$S$_ILLSEQOP 
ee SS$_BUF F EROVF 
7 SIDE EFFECTS: 
e6 R1-R5 destroyed 
o ENVIRONMENT : 
é3 Kernel mode, IPL 0 
oe ; NB: This code assumes that IPL synchronization (above ASTDEL) is 
655 ; not required because 


n” 
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ae 
| 
EC 654; ada gomnend/rosponce protocol is used between the | 
EC 5; main and sub processes 
EC § s b) SYSRUNDWN will unconditionally call SETPFM to 
EC j turn off monitoring (i.e., assumption a) cannot be breached) 
43 ° 3 ; c) no code outside of this module accesses PFM data structures 
EC 660 PFMSGETBUF:: | 
54 QO000000'EF 00 E 661 MOVL L“SCHSGL_CURPCB,R4 ; Get PCB address for this process 
54 011C¢ gr 0 F 666 MOVL BCBSL_PRB (RG) .RA ; Get PMB address 
Re F 66 BEQL 50$ ; BR if none 
FA 664 10$: SETIPL #IPLS_ASTDEL ; Protect buffer handling 
55 1C B4 OF FD 665 REMQUE @PMBS$O_SBPHDR(R4) RS $ Dequeve filled buffer 
6 D 01 66 BVS 4 ; Exit if none 
50 1 ¢¢ +4 66 MOVZWL #SS$_NORMAL,RO 3; Assume adequate buffer size 
53 900 F C 6 668 MOVZWL SOF BSS LUSER_BUFFER.RS ; and set number of bytes to move 
¢ D1 0B 669 CMPL R2,R : Is buffer big encugh ? 
0 18 0 670 BGEQ 1 ; BR yes 
50 9601 , oe 1 671 MOVZWL #SS$_BUFFEROVF ,RO : Indicate data loss 
2 00 1 ore MOVL R2,R ; Adjust number of bytes to move 
1 by 18 6735 15$: PUSHR #*M<RO,R4,R5> ; Save regs and status 
61 OC AS 3 8 O3S1A 674 MOVC3 R3,PFBS$B USER_BUFFER(R5),(R1) ; Move buffer 
31 BA O31F 675 POPR #*M<RO,R > 3; Restore regs and status 
1444 65 OE 0321 676 INSQUE (R5),PMB$Q_HDR(R4) ; Return buffer to free List 
0325 67 eps: SETIPL #0 ; Restore IPL 
05 8 3 ors O$: RSB ; Return to caller 
50 OAC 8F 3C 0329 680 40S: MOVZ7WL #SS$_NODATA,RO 
AG (OO 1 8 3 et Bites #PMBSM_ASTIP,PMBSB_FLAGS(R4) ; Show no AST in progress 
50 O2DC 8F 3¢ $3 4 rey 50$: MOVZWL #SS$_ILLSEQOP,RO 
11 83 9 684 6RE 30$ 
0338 685 
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-SBTTL ALLPMB = Allocate PMB control block and data buffers 


l 


+ 
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FUNCTIONAL DESCRIPTION: 
Allocates all process structures needed for page fault monitoring. 
CALLING SEQUENCE: 
JSB/BSB ALLPMB 
INPUTS: 
BB addres 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
R6 = PMB address 
IMPLICIT OUTPUTS: 
PCBSL_PMB contains PMB address 
ROUTINE VALUE: 


RO = SS$_NORMAL 
= Pool allocation error (SS$_INSFMEM, etc.) 


SIDE EFFECTS: 

RO,R1,R2,R35,R8,R9 destroyed 
ENVIRONMENT: 

Kernel mode, IPL = IPLS_ASTDEL 


SINNOTT IO OOOO OO 
DOOODOCGDOCOCOOCCWOoOooowvon 


— a at 
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PMB: 
1c =D PUSHL #SS$_EXQUOTA ; stack no quota error code 


Process should have enough quota for data buffers and PMB 


MOVL PCBSL_JIB(R4),R ge 4 J18 adéree 
CMPL sOuOTR. CHARGE, Peas _BYTCNT RB) ‘ uota left? 
BGTRU ; error not 


Poa 
ae 
NOS FNRSOCOCSCCOCDDDOD2DO2 22222 2O0G 


2018 “Tool fH 


SN i i Be eS die i Si Si De De Sie Site i tt te | 


LPB AAAI AIA POPUNINININMONINON 


S atlecate PMB control block and insert address in PMB List 
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44 ; 
45 
gf 124 HH $$ MOVZ7WL #SS$ pesenee st 3 sume sonery pes not available 
BF 4 MOVZWL #PM sc chENG ; get Length o PT, Plock to allocate 
0 F 6 ‘8 JSB ereSh Cocau : on ceeeer control block 
C 50 C & BLBC RO, nash that memory available 
20 a8 000094 C BF F SUBL2 pOUSTA CHARGE , JIBSL LBYTCHTER 5. adjust quota 
$ ¢ 7 MOVL R2,R6 ~ 3 copy baa lock address 
o11c C ry MOVL R6,PCBSL_PMB(R4) 3; insert address in PCB 
F ; N.B.: PEM Ae assumes chet oe has 
; : ; been charged PCBSL_PMB 
F 3 
; f i Initialize PMB and allocate and queue data buffers. 
BS. & 
OA AG 46 BF of £69 MOVB #DYNSC_PMB,PMBSB_TYPE(R6) ; Set structure type to PMB 
106 ASSUME PMBSQ_SBPHDR EQ PMBSO_HDR+8 
oe? ASSUME PMBSL~ ASTQFL EQ PMBSQ- _SBPHDR+8 
50 6A 765 MOVAB PMBS$Q_HDR(R6),RO 3 get Queue header address 
69 § 76 MOVAL (RO),TRO) i init empty queue flink 
5 78 «676 MOVAL (RO)+,(RO)+ ; init empty queue blink 
§ 8 4 768 MOVAL (R ), (RO) ; init subprocess queue flink 
3 3 769 MOVAL (RO)+,(RO)+ : init subprocess queue blink 
60 6 4 770 MOVAL (RO), (RO) : init AST queue flink 
60 80 : MOVAL (RO)+, (RO) ; init AST queue blink 
rl ASSUME PMBSL_BUFBASE ? PMBSL -CURBUF +4 
66 " CLRQ PMBSL_ CURBUF (R6) ; note no current buffer 
A6 C CLRB PMBSB_FLAGS(R6) ; yeayre that all {tags are clear 
10 A F CLRL PMBSL_OVERFLOW(R6) ndicate no overflow 
30 A6 = 60 AG § MOVL PCBSL”PID(R4) ,PMBSL poche)” 3 oaet PID into. PMB/ACB 
OC A6 =O 9 MNEGL #1 PRBSL _LASTCPUC(REY ; force timestamping of Ist record 


MOVZWL #BUFCNT,RO ; number of data buffers to allocate 
MOVZWL #BUFSIZ,R1 ; get size of buffer to allocate 

JSB EXESALLOCBUF ; allocate buffer 

BLBC take error path re no memory available 
MOVB sins PFB, PrasB TYPE (R25; Set structure fs to PFB 

INSQUE ) PABSQ_H (RB) Queue on empty buffer List 

SOBGTR Roe} 168 : back for more buffers 

MOVZWL £558 _MORMAL. (SP) 3; Indicate success 

POPL g ; Return w/status in RO 
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¢ -SBTTL PFMSMON - Resident Monitoring Code 
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FUNCTIONAL DESCRIPTION: 
Resident coge cotter by _menees genaponent to record 
page ault P as a fe is ema ie nto a buffer. 

hen the buffer is forte t is que .. for a cooperating 

process which outputs Lal dete to disk. 

CALLING SEQUENCE: 
BSB/JSB PFMSMON 

INPUTS: 


R4 = PCB address 
RS = PHD address 


IMPLICIT INPUTS: 
none 

OUTPUTS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 

SIDE EFFECTS: 
none 

ENVIRONMENT: 
Kernel mode, IPL = IPL$_SYNCH 


A QOOOOCOOCOO 


DOD NA AE WI *§ SO OD NA NEN © OD NOMN EWN @ O ODN UNE WO OO NOUS WP 


re -PSECT AEXENONPAGED,LONG 

4 ENABLE LSB 

435 5$: CMPL PFBSL_RECCNT(R2) ,#2 3 Space f for time stamp and PC/VA pair ? 
4 BGEQU§ 6 3 spece te as buffer 

4 PUSHL R ; Save PH 

4 B&HB FLUSH_BUFFER_INT : Flush buffer (Ro, R4, RS DESTROYED) 
4 POPL R 3 seetere PHD address 

4 BSBW TBUF 3 try " get next buffer 

4 BV 3 t if none there, lose data 

50 6$: MNEGL #1, (R1)+ i Add time stamp to buffer 
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1 SETIPL #IPLS_HWCLK i Synchronize with CPU time updati 
BI HBAS 00 | ROVL PHOEL ~CPUTIMCRS) (RI) , ee 
A D it MOVL PHOSL_CPUTIM(R5) = ; Update reference CPU time 
C Ab PRBS, “LASTCPUCR6S 
OC A2. 07 H $2 sfc or BRE CENT(R2) : Ag aa on 7 ye Ag ti t 
; 3 ust record count for time s 
fe 694 057 Bee te Lo he ; Adjust Seiad ik node “e 
3 ; ALIGN LONG 
C B60 PFMSMON:: 
7F 8F Hi B 6 PUSHR #*M<RO,R1 ne R3,R4,R5,R6> ; save registers 
S56 40110 C4 OD 1 MOVL  PCBSL_PmB(R4S RE ; get PMB address 
+t ASSUME PMBSL_BUFBASE EQ PMBSL_CURBUF +4 
51 6 7 +4] MOVQ PMBSL_CURBUF (R6) ,R1 ; get buffer address & base 
1 B6 BNEQ 10$ ; Branch if buffer exists 
£4 1 A soe BSBB TBUF 3; try to get next buffer 
3 1D C ¥ BVS ; exit if none there, lose data 
OC A6 «38 A p} ; 670 108: CHPL PHDSL_CPUTIN(RS) ,PMBSL_LASTCPU(RO) ; Need a CPU time stamp ? 
5 : es 
g1 40AE A7g 158: MOVL —_-FAULTPC(SP),(RI)+ S insert pe of instruction 
1 3¢ af D 4 87 MOVL FAULTVA(SP),(R1)+4 3; insert va which faulted 
5 1) 4 B74 PMBSL CURBUE (RG) 3 save current buffer address 
02 OC Ag F B75 SOBGTR PFBSL_RECCNT(R2),20$ ; Buffer full ? 
1 1 4 578 FLUSH_BUFFER_INT : Yes, flush it 
? 87 ; (R2, R4&, RS DESTROYED) 
OO7F 8F BA ° 78 20$: coe #*M<RO,R1,R2,R3,R4,R5,R6> ; restore registers 
10 a6 96 sy & ? 30$: inet PMBSL_OVERFLOW(R6) ; Count an overflow 
5 : § -DISABLE LSB 
: : » ENABLE LSB 
OC A2 3F 0 : $ 5$: MOVL #MAXREC ,PFBSL_RECCNT(R2); Re-initialize records remaining 
0 4 : RSB 3 and return 
: } : (R2, R4, RS DESTROYED) 
B90 FLUSH_BUFFER: : Entry with IPL=IPL$ ASTDEL 
52 04 a6 00 : B91 MOVL PMBSL_BUFBASE(R6) ,R2 ; Get current buffer Base address 
2 1 : § BEQL 20 3; Just exit if no current put ter 
B93 FLUSH_BUFFER_INT: ; Entry with IPL=IPL$_SYNCH, R2 set 
3F Cc Ag c3 6E B94 SuBL3 Crest RECENT (RG) -AMAMREC.~ 3; Convert records rema ning to 
CA 6F : PFBSL_RECCNT (Re) ; number of records in buffer 
—ED 13 L 5$ ; BR if no records in buffer 
7 ASSUME PFBSL_FLINK EQ 0 
20 B86 62 O€ 7 INSQUE (R2),@PMB$Q_SBPHDR+4(R6) ; insert buffer at end of write queue 
7 ASSUME PMBSV_MODE EQ 0 
77 ASSUME presk_ 1 AAGE EQ 1 
16 0B ag 77 BLBC PMBSB_FLAGS(R6) , 30S ; BR if subprocess mode 
OE 0B A6 BBSS  #PMB ASIP PMBSB_FLAGS(R6),108 ; If AST in progress. return 
08 Ag BISB2 #PMBSM~QAST.PMBSB_FLAGS(R6) ; Show enbedd d ACB queued on PCB 
5 1 A MOVZBL #PRI$_TOCOM,R2 3 Re <= priority increment class 
55 24 46 3 7 MOVAL PMBSL_ASTQFL(R6),R5 3; RS <= address 9 
FF72° BSB SCHSQAST : Signal full buffer available 
66 E 19$ CLRQ PMBSL_CURBUF (R6) ; Note that no current buffer exists 
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T MONITORI 16-SEP-1984 02:31:31 VAX/VMS Macro v04-00 
ent Mon series Code $78 sats ri 86:35:35 SYS<SRCISYSSEYPFM_MAR: 1 
208: RSB 
30$: MOVL PMBSL_PID(R6) ,RI ; get params to wake up other process 
DSBINT #IPL$ SYNCH 
BSBW = SCHSWAKE ; and wake the process 
ENBINT 
BRB 10$ 
- DISABLE LSB 
GE TBUF : 3 get next buffer from queue 
REMQUE POROSE _WORCAG) RZ ; dequeue next butter 
BVS $ ; leave with V set if none there 
MOVL Re, PMBSL PUrOAsg (Re) 3 Saye ffer base address in PMB 
MOVAB PFBSB_BUFFER(R2) ,R : skip buffer overhead 
MOVL #MAXREC ,PFBSL RECCNT (RQ); Initialize records remaining 
MOVL PMBSL_OVERFLOQ(R6) ,PFBSL_OVERFLOW(R2) ; Copy overflow count 
CLRL PMBSL_OVERFLOW(R6) 3; and then reset it (also clears V) 
; (R1 & R2 point to buffer) 
10$: RSB : return with V set or clear 


L 6 
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T1 = PFMQUOTA 20 R 
CBSH_NODELETE 3 PFM_PKAST ? A 83 
ACBSM-PKAS = _CPUTIM s 
CMODE = PHD vapracee z 
ALL PRB 02 <FLAG = 
ASTADR s PMBS$B_ACMODE = E 
ASTPRM = f PMBSB_FLAGS = 
BUF CNT z PMB$B_RMOD s F 
FS = ¢ PMBSB_TYPE s A 
CHECK_ACMODE AC R PMBSC_LENGTH s 40 
CHECK"ST CE R PMBSK_ IMAGE s 1 
CTLS$GC_PHD eeeeeeee PMBSL_AST s 4 
DASSGN-EXIT 5D R PMBSL_ASTPRM = 8 
uE D6 R MBSL_ASTQFL = 4 
C_PF z 4 PMBSL_BUF BASE s 4 
= 00000046 MBSL_CURBUF = 0 
EXESAB_HEXTAB eeeeeeee =X SL-EPID z 4 
EXESALCOCBUF aeeneeee =X “KAST 2 ¢ 
E XE SDEANONPAGED eeeeeeee =X PMBSL_LASTCPU = 
EXESEPID_TO_IPID eeneneee =X PMBSL_OVERFL = 01 
EXESIPID- TO PCB eeeeeene =X PMBSL_PID = 48 
EXE SMAXACMODE eeeeeeee =X 8 PMBSM_ASTIP = 00000 : 
EXESSETPFM 000006A RG PMBSM_QAST = 8 4 
F AULTPC = 00000040 PMB$Q_HDR s 8 14 
FAULTVA = o8 3 PMB$Q_SBPHDR = 3 1C 
FILWRT 0000043 R PMBS$V_ASTI = 00000001 
FILWRTPRY 0000052 R PMBSV_MODE = 8 3 
FLUSH_BUFFER 0000065 R PMBSV_QAST = 000000 
FLUSH" BUFFER_INT 0 of A 8 PMBSW_MBXCHN = 
GE TBUF ° ASR PMBSW-SIZE = 0 
ILL SEQOP 4 $1 B 02 PQL$_BYTLM = 0 
10$_READVB = 000 : 1 PQL$_CPULM = 0004 
IPLS_ASTDEL = 0000000 PQLS$_FILLM = 0 : 
IPL$_HWCLK = D1 PQL$_LISTEND = $ 
IPL$"SYNCH = PQL$_PGFLQUOTA = 0 
JIBSC_BYTCNT s PQL$_PRCLM = 0 38 
MAXRE = 0000005F PaLs TQELM = 
NOPR I aE R 02 PRS_TPL = \¢ 
PCBSL_EPID = $ 1$_10COMm = 
PCBSL_ JIB = PSL$S_PRVMOD = 
PCBSL_PID = 6 SL$V—PRVMOD = 
PCBSL_PMB = C URGE EXIT g R 
PFBSB_BUFFER s 14 PURGE EXIT RO f R 
PFBSB_ TYPE = A PURGE -EXIT-RO_VEC C8 R 
PFBSB_USER_BUFFER = C PURGE -EXIT-VEC cB R 
PFBSC-LENGTH s QUOTA” CHARGE = A7C 
PFBSL_FLINK s SCHSGC_CURPCB ae | 
PFBSL_OVERF LOW = SCHSQAST eeeneeee =X 
PFBSL_RECCNT s SCHSREMOVACB aeeeeeee = x 
PFBS$S_USER BUFFER s SCHSWAKE aeeeeeee =X 
PF MSC” BUF CRT = G SET_ASTMODE 116 R 
F M$GE TBUF C RG SET" SUBPMODE 130 R 
PF MSMON C RG SS$~BUF FEROVE = 
PF MSPURGE A RG SS$"EXQUOTA = ¢ 
PF MBUSY AR SS$-ILLSEQOP s of 
PFMF ILWRT 90 R SS$~ INSFMEM s 4 
PFMFLG = SS$"NODATA = TAC 


Fe 
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PSECT name 


» ABS . 
$ 


SABS 
YEXEPAGED 
AE XENONPAGED 


Phase 
Initialization 
zonnens processing 


Syabol table sort 
Symbol table output 
Psect synopsis output 


Assembler run totals 


Page faults 


Cross-reference output 


source lines were read in Pass 
pages of virtual memory were used to define 3 


= SET PAGE FAULT MONITORING 


: 


gererene 
eeeeeeee 
geeaeaene 
eenreeere 
eeeeeene 
eeeneene 


oun > Oo 


Allocation 


St 


0000008E 


72 


Me york ing set Limit was 1500 pages. 
1 ayeet 4 4 pages) of virtua 
There were 80 pages of symbol table space ucingss d to hold 1517 non-local aon i 


memory were used to buffer 
1, produ 


pore newer arena now} 


! Psect synopsis ! 


poorer em een nee e now > 


PSECT No. Attributes 


-) 00 4 QO.) NOPIC  USR 
-> Q1 ¢ 1.) NOPIC  USR 
959.) ( 2.) NOPIC USR 
190.) ( 3.) \NOPIC  USR 


presen wee ee meee eee eee ent 


! ; Performance indicators ! 


eeeceoe See SSeS Se eee eeeeeeee + 


CPU Time Elapsed Time 


i 


BF 
:00: 27 


: :00:08.1 
Ha 


object Ri &, n Pass 2 
macros. 


S$Ep=1986 88:57:59 


3333 


he intermediate c 
ye symbols. 


Se TOEM MAR: 1 Stee ¢) 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
WRT NOVEC LONG 


SYSSETPFM = SET PAGE FAULT MONITORING H. 197-360-1388 8: 3}: 3 AX/VMS 


04-00 Pa 
VAX=11 Macro Run Statistics P-19 - 2, 


ro 
SYS.SR 58 YSSE PFM.MAR; 1 


been e nee eae cen ween rose een + 


! Macro Library statistics ! 


geome meme meme eee ewe crc coewwonon > 


Macro Library name Macros defined 

-8255SDUA vs. 1 JL1B8.MLB; 1 1 
Hittites Hes L18 STAR LET.MLB;2 13 

Tote (all tibeoes es) 32 


1718 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSSETPFM/OBJ=OBJ$:SYSSETPFM MSRC$:SYSSETPFM/UPDATE=(ENHS: SYSSETPFM) +EXECMLS/LIB 
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